0 GOSUB6:DIMW$(300):POKE53281,0:POKE53280,0:POKE650,128 1 FORI=0TO70:POKE211,0:POKE214,I:SYS58640 3 PRINT"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]" 4 POKE211,0:POKE214,16:SYS58640:PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]" 5 GOTO10 6 POKE53265,PEEK(53265)AND239:RETURN 7 POKE53265,PEEK(53265)OR16:RETURN 10 FORR=0TO90:READA$:W$(R)=A$:NEXT 11 POKE211,0:POKE214,17:SYS58640: 12 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] "; 13 PRINT"[213][203][151] <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> [202][201]"; 14 PRINT"[194][155] [176][195][174] [176][195][195][174] [176][195][174] [195][178][195] [176][195][195][174] [194]"; 15 PRINT"[194] [171][195][177][174] [171][195][195][179] [173][195][174] [194] [194] [160] [194]"; 16 PRINT"[194][155] [173][195][195][189] [173] [189] [173][195][189] [195][177][195] [173][195][195][189] [194]"; 17 PRINT"[202][201][151] <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> [213][203]"; 18 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"; 20 X=0:Y=-1 21 FORI=1TO15:POKE211,1:POKE214,I:SYS58640:PRINT"[154]"W$(X+I):NEXT:GOSUB7:GOTO22 22 GETA$: 23 IFA$=CHR$(13)THEN50 24 IF A$="."ANDX<90THENX=X+15:GOTO21 25 IF A$=","ANDX>0THENX=X-15:GOTO21 26 GOTO22 50 POKE828,0:PRINTCHR$(147)CHR$(17):PRINT"[144]LOAD"CHR$(34)"M1*"CHR$(34)",8" 51 PRINTCHR$(17)CHR$(17)CHR$(17)CHR$(17)"RUN" 52 POKE631,13:POKE632,13:POKE198,2 53 PRINTCHR$(19);:END 60 DATA" " 61 DATA" " 62 DATA" [213][195][195][195][195][195][195][195][201] [213][195][195][195][195][195][195][195][195][195][195][201] " 63 DATA" [194]FUCKIN'[194] [194]BASIC ????[194] " 64 DATA" [202][195][195][195][195][195][195][195][203] [202][195][195][195][195][195][195][195][195][195][195][203] " 65 DATA" " 66 DATA" [213][201] [213][201] " 67 DATA" [202][203] [202][203] " 68 DATA" [213][201] [213][201] " 69 DATA" [202][203] [202][203] " 70 DATA" [168][168][168][168][168][168][168] EASY BASIC KURS " 71 DATA" [194] [215] [215] [194] " 72 DATA" [217] @ [212] WRITTEN BY LOST BRAIN" 73 DATA" [188][194][213][195][201][194][190] " 74 DATA" [202][168][168][168][203] " 100 DATA" " 101 DATA" + + + + BASIC KURS TEIL II + + + + " 102 DATA" " 103 DATA"NUN IST ES WIEDER SOWEIT. DIEJENIEGEN " 104 DATA"UNTER EUCH, DIE BASIC NOCH NICHT SO " 105 DATA"GANZ VERSTANDEN HABEN ODER DABEI SIND," 106 DATA"ES ZU LERNEN WERDEN HIER MAL WIEDER " 107 DATA"AUF IHRE KOSTEN KOMMEN. HEUTE WIDMEN " 108 DATA"WIR UNS DEN BEFEHLEN POKE UND PEEK. " 109 DATA"DIESE DIENEN UNS ZUM SETZEN VON WERTEN" 110 DATA"ODER ZUM AUSLESEN DIESER WERTE AUS BE-" 111 DATA"STIMMTEN SPEICHERZELLEN. " 112 DATA" " 113 DATA"MIT DEM BEFEHL POKE KOENNEN WIR WERTE " 114 DATA"ZWISCHEN 0 UND 255 IN SPEICHERZELLEN " 115 DATA"'POKEN' ALSO SETZEN. WOFUER DIE EIN- " 116 DATA"ZELNEN SPEICHERZELLEN STEHEN, ERFAEHRT" 117 DATA"MAN AUS HANDBUECHERN UND INFORMATIONS-" 118 DATA"MATERIALIEN. EINIGE NENNE ICH WAEHREND" 119 DATA"DIESES BASIC - KURSES ! ALSO, DURCHLE-" 120 DATA"SEN LOHNT SICH. UM SICH DEN BEFEHL " 121 DATA"POKE BESSER VORZUSTELLEN, SEHEN WIR " 122 DATA"DIE SPEICHERZELLEN ALS SCHUBFACH IN " 123 DATA"EINEM GROSSEN SCHRANK, DEM RECHNER. " 124 DATA"AUF JEDEM FACH STEHT EINE ZAHL, DIE " 125 DATA"SPEICHERZELLE. NUN KOENNEN WIR DIESES " 126 DATA"FACH OEFFNEN UND EINEN WERT ZWISCHEN " 127 DATA"0 UND 255 'HINEINTUEN. DAZU FOLGENDER " 128 DATA"SYNTAX: " 129 DATA"POKE>>SPEICHERZELLE<<,[158]>>WERT<< " 130 DATA"EIGENTLICH IST ES GANZ EINFACH, UND " 131 DATA"DUERFTE SELBST FUER EINEN ANFAENGER " 132 DATA"LEICHT ZU VERSTEHEN SEIN! NUN FOLGT " 133 DATA"EIN BEISPIEL, WELCHES OEFTERS GENUTZT " 134 DATA"WIRD, UM DEN RAHMEN FARBLICH ZU VER- " 135 DATA"AENDERN. HIERZU DIENT DIE SPEICHERZEL-" 136 DATA"LE 53280. WELCHE POKEWERTE FUER WELCHE" 137 DATA"FARBE DIENEN STEHT IM HANDBUCH. DIE 15" 138 DATA"STEHT ZUM BEISPIEL FUER HELLGRAU. WOL-" 139 DATA"LEN WIR ALSO EINEN HELLGRAUEN RAHMEN " 140 DATA"HABEN, MUESSEN WIR DEN WERT 15 IN DIE " 141 DATA"SPEICHERZELLE 53280 POKEN. HIERZU FOL-" 142 DATA"GENDER SYNTAX: >>[158] POKE53280,15 [154]<< ! " 143 DATA"WEITER NICHTS! SO EINFACH IST DAS GAN-" 144 DATA"ZE. NUN ZU DEM BEFEHL PEEK. " 145 DATA"HABEN WIR ZUM BEISPIEL EINEN WERT IN " 146 DATA"EINE SPEICHERZELLE GEPOKED UND WOLLEN" 147 DATA"DIESEN SPAETER WIEDER ABFRAGEN, SO IST" 148 DATA"DER BEFEHL PEEK EINE RIESIGE HILFE. " 149 DATA"ER SETZT DEN WERT NICHT, SONDERN FRAGT" 150 DATA"IHN AB. FOLGENDER SYNTAX: " 151 DATA"[158]A=PEEK(>>SPEICHERZELLE<<[158])[154] ! " 152 DATA"FUER A KANN AUCH JEDE ANDERE VARIABLE " 153 DATA"EINGESETZT WERDEN. HIERZU AUCH WIEDER " 154 DATA"EIN BEISPIEL. UNS STELLT SICH DAS PRO-" 155 DATA"BLEM, DASS WIR WISSEN WOLLEN, WELCHE " 156 DATA"FARBE UNSER CURSOR HAT. DIE ENTSPRE- " 157 DATA"CHENDE SPEICHERZELLE IST HIER 646. " 158 DATA"DIESE SETZEN WIR EINFACH IN UNSERE " 159 DATA"FORMEL EIN: " 160 DATA"[158]A=PEEK(646) " 161 DATA"IN A IST NUN DER WERT DER FARBE ABGE- " 162 DATA"LEGT. SO IST ES MOEGLICH, JEDE SPEI- " 163 DATA"CHERZELLE DES C-64 ABZUFRAGEN ! " 164 DATA"GUT, DASS NAECHSTE MAL WIRD ES EINEN " 165 DATA"ARTIKEL UEBER DAS UMGEHEN MIT FOR NEXT" 166 DATA"SCHLEIFEN GEBEN. DOCH BIS ZUR PULP #3 " 167 DATA"WERDE ICH IHNEN EINE AUFGABE STELLEN, " 168 DATA"DIE DAS WISSEN AUS KURS II ABFRAGT. " 169 DATA"ENTWERFEN SIE EIN PROGRAMM, MIT DEM " 170 DATA"SIE DEN FARBWERT DES CURSORS ABFRA- " 171 DATA"GEN UND DEN RAHMEN IN DIE GLEICHE FAR-" 172 DATA"BE SETZEN KOENNEN. ALS VARIABLE WAEH- " 173 DATA"LEN WIR X ! ALSO, BEIM NAECHSTEN MAL " 174 DATA"ERFAHREN SIE DIE LOESUNG ! " 175 DATA" LOST BRAIN" 0